home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 38
/
Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso
/
-seriously_amiga-
/
programming
/
other
/
cyberxxxsrc
/
misc
/
stringlib.mod
< prev
next >
Wrap
Text File
|
1999-02-08
|
4KB
|
77 lines
MODULE StringLib;
(* $StackChk- $OvflChk- $RangeChk- $CaseChk- $ReturnChk- $NilChk- $TypeChk- *)
(* $JOIN StringLib.o *)
IMPORT e:=Exec,
y:=SYSTEM;
PROCEDURE isupper * {"_isupper"} (c{0}: CHAR): BOOLEAN;
PROCEDURE islower * {"_islower"} (c{0}: CHAR): BOOLEAN;
PROCEDURE isalnum * {"_isalnum"} (c{0}: CHAR): BOOLEAN;
PROCEDURE isalpha * {"_isalpha"} (c{0}: CHAR): BOOLEAN;
PROCEDURE isdigit * {"_isdigit"} (c{0}: CHAR): BOOLEAN;
PROCEDURE isspace * {"_isspace"} (c{0}: CHAR): BOOLEAN;
PROCEDURE toupper * {"_toupper"} (c{0}: CHAR): CHAR;
PROCEDURE tolower * {"_tolower"} (c{0}: CHAR): CHAR;
PROCEDURE streq * {"_streq"} (s1{8}: ARRAY OF CHAR;
s2{9}: ARRAY OF CHAR): BOOLEAN;
PROCEDURE strieq * {"_strieq"} (s1{8}: ARRAY OF CHAR;
s2{9}: ARRAY OF CHAR): BOOLEAN;
PROCEDURE strneq * {"_strneq"} (s1{8}: ARRAY OF CHAR;
s2{9}: ARRAY OF CHAR;
n{0}: LONGINT): BOOLEAN;
PROCEDURE strnieq * {"_strnieq"} (s1{8}: ARRAY OF CHAR;
s2{9}: ARRAY OF CHAR;
n{0}: LONGINT): BOOLEAN;
PROCEDURE strcmp * {"_strcmp"} (s1{8}: ARRAY OF CHAR;
s2{9}: ARRAY OF CHAR): LONGINT;
PROCEDURE stricmp * {"_stricmp"} (s1{8}: ARRAY OF CHAR;
s2{9}: ARRAY OF CHAR): LONGINT;
PROCEDURE strncmp * {"_strncmp"} (s1{8}: ARRAY OF CHAR;
s2{9}: ARRAY OF CHAR;
n{0}: LONGINT): LONGINT;
PROCEDURE strnicmp* {"_strnicmp"}(s1{8}: ARRAY OF CHAR;
s2{9}: ARRAY OF CHAR;
n{0}: LONGINT): LONGINT;
PROCEDURE strlen * {"_strlen"} (s{8}: ARRAY OF CHAR): LONGINT;
PROCEDURE strcpy * {"_strcpy"} (s1{8}: ARRAY OF CHAR;
VAR s2{9}: ARRAY OF CHAR);
PROCEDURE strncpy * {"_strncpy"} (s1{8}: ARRAY OF CHAR;
VAR s2{9}: ARRAY OF CHAR;
n{0}: LONGINT);
PROCEDURE strcat * {"_strcat"} (s1{8}: ARRAY OF CHAR;
VAR s2{9}: ARRAY OF CHAR);
PROCEDURE strncat * {"_strncat"} (s1{8}: ARRAY OF CHAR;
VAR s2{9}: ARRAY OF CHAR;
n{0}: LONGINT);
PROCEDURE strpos * {"_strpos"} (s{8}: ARRAY OF CHAR;
c{0}: CHAR): LONGINT;
PROCEDURE strrpos * {"_strrpos"} (s{8}: ARRAY OF CHAR;
c{0}: CHAR): LONGINT;
PROCEDURE PutChar * (); (* $EntryExitCode- *)
BEGIN
y.INLINE(016C0U,04E75U);
END PutChar;
(* /// ------------------------- "PROCEDURE sprintf()" ------------------------- *)
PROCEDURE sprintf * {"StringLib.sprintfA"} (VAR buffer{11}: ARRAY OF CHAR;
fmt{8}: ARRAY OF CHAR;
data{9}..: e.APTR);
PROCEDURE sprintfP * {"StringLib.sprintfA"} (buffer{11}: e.LSTRPTR;
fmt{8}: ARRAY OF CHAR;
data{9}..: e.APTR);
PROCEDURE sprintfA * (buffer{11}: e.LSTRPTR;
fmt{8}: e.LSTRPTR;
data{9}: e.APTR);
BEGIN
e.OldRawDoFmt(fmt^,data,PutChar,buffer);
END sprintfA;
(* \\\ ------------------------------------------------------------------------- *)
END StringLib.